1 REM SERPENT OF DEATH BY JIM & TOM HOPPE APRIL '83 4 POKE36869,255:GOTO20000 5 DIMJS(2,2) 6 FS=7991:FC=38711:SS=7713:CS=38433:S=7712:C=38432 7 IF4*(PEEK(36866)AND128)+64*(PEEK(36869)AND112)=4096THENGOSUB10000 10 FORI=0TO2:FORJ=0TO2:READJS(J,I):NEXTJ,I 50 TS=0:L=1:AA=100:DD=37154:PA=37137:PB=37152:CD=1 52 BS=1:VS=5:BS=1 55 POKE37139,0:POKE36878,15 90 IFPEEK(52)=28THEN95 95 POKE36879,157:POKE36869,255 100 PRINT"[147]"TAB(32)"@AB"TAB(32)"BBB"TAB(31)"@BCAB"TAB(31)"CABBB"TAB(30)" BBBCAB" 110 PRINTTAB(8)"@BCABBB"TAB(29)"@@ABBBCAB"TAB(29)"BBBBCABBB"TAB(28)"@@BCABBBCAB" 120 PRINTTAB(6)"C@ABBBCABBB"TAB(27)" BBBBCABBBCAB"TAB(27)"@@BCABBBCABBB" 130 PRINTTAB(4)" BCABBBCABBBCAB"TAB(25)" @ABBBCABBBCABBB" 140 PRINTTAB(4)"BBBCABBBCABBBBB"TAB(25)" JKJJKJKJJKJKJK" 210 POKES+H+22*V,4:POKEC+H+22*V,2 500 GOSUB9000 510 IFTS>0THENTS=(TS-1) 550 GOSUB2000 560 JS=JS(X+1,Y+1):IFJS<8THENGOSUB1500 590 IFFR=1THENGOSUB3500 700 IFTS=0ANDVN=1THENGOTO6000 710 IFTS>0THENPRINT"COBRA VENOM ACTIVE "RIGHT$(STR$(TS),2) 1000 GOTO500 1499 REM JUMP 1500 POKES+H+22*V,BA:POKEC+H+22*V,C1 1501 IFJS=0THENV=V-4:IFV<-3THENV=-1 1502 IFJS=1THENV=V-3:H=H+1:IFV=-3THENV=-1 1503 IFJS=2THENH=H+1:V=V-1 1504 IFJS=3THENH=H+1 1505 IFJS=4THENV=V+1 1506 IFJS=5THENH=H-1 1507 IFJS=6THENH=H-1:V=V-1 1508 IFJS=7THENV=V-3:H=H-1:IFV=-3THENV=-1 1510 BA=PEEK(S+H+22*(V-1)):C2=(PEEK(C+H+22*(V-1))AND15) 1515 POKES+H+22*(V-1),4:POKEC+H+22*(V-1),2 1520 POKES+H+22*(V-1),BA:POKEC+H+22*(V-1),C2 1525 GOSUB3050 1530 RETURN 1999 REM SNAKES 2000 IFCT=0THENCD=1 2001 POKESS+HS+22*VS,BS:POKECS+HS+22*VS,CD 2003 GS=INT(RND(1)*4)+1 2005 IFGS=1THENVS=VS-3:HS=HS+1:POKEFS+22*UP,32:FS=7991:FC=38711 2006 IFGS=2THENHS=HS+1:IFL>2THENPOKEFS+22*UP,32:FS=7962:FC=38682 2007 IFGS=3THENHS=HS-1:IFL>4THENPOKEFS+22*UP,32:FS=7840:FC=38560 2008 IFGS=4THENVS=VS-3:HS=HS-1:IFL>6THENPOKEFS+22*UP,32:FS=7827:FC=38547 2009 POKEFS+22*UP,6:POKEFC+22*UP,6 2010 BS=PEEK(SS+HS+22*(VS-1)):CD=(PEEK(CS+HS+22*(VS-1))AND15) 2015 POKESS+HS+22*(VS-1),8:POKECS+HS+22*(VS-1),5 2020 POKESS+HS+22*(VS-1),BS:POKECS+HS+22*(VS-1),CD 2025 GOSUB4050 2030 RETURN 3049 REM FALLING 3050 V=V+1 3051 IFV>16THENGOTO5000 3060 BA=PEEK(S+H+22*V):C2=((PEEK(C+H+22*V))AND15) 3070 POKES+H+22*V,4:POKEC+H+22*V,2 3074 PRINT""TAB(17)"LEVEL[157][157][157][157]"L 3075 IF((BA=0ORBA=1ORBA=3)ANDC2=1)THENCT=CT+1:CW=CW+1 3076 IFBA=8THENCO=CO+100:CW=CW+100:TS=0:VN=0:GOSUB55000 3077 PRINT"SCORE"CW"":IFCT>54THENGOTO60000 3078 IFCT+CO>AATHENBA=BS:GOTO60000 3079 IFBA=6THENTS=0:VN=0:POKE36879,157:PRINT" " 3080 IFBA=8THENTS=0:VN=0:POKE36879,157:PRINT" " 3081 IFBA=1ORBA=3ORBA=0ORBA=6ORBA=7THENPOKE36874,200:FORT=1TO200:NEXT:POKE36874,0:RETURN 3090 POKES+H+22*V,BA:POKEC+H+22*V,C2 3099 GOTO3050 3500 IFV=0THENRETURN 3501 IFBA<>6THENRETURN 3505 UP=UP-1 3510 POKEFS+22*(UP+1),32 3515 POKEFS+22*UP,6:POKEFC+22*UP,6 3520 IFGS=1ORGS=2THENK=15:IFGS=3ORGS=4THENK=8 3530 IFUP<-15THENPOKE36876,0:V=0:H=0:UP=0:POKEFS,6:BA=0:GOTO210 3540 POKE36876,190-UP 4000 GOTO3505 4050 VS=VS+1 4052 IFVS>15THENVS=0:HS=0:CD=PEEK(CS):BS=1:RETURN 4060 BS=PEEK(SS+HS+22*VS):CD=((PEEK(CS+HS+22*VS))AND15) 4070 POKESS+HS+22*VS,8:POKECS+HS+22*VS,5 4074 IFBS=0ORBS=1ORBS=3THENGOSUB58000 4075 IFBS<>4THENGOTO4080 4076 IFBS=4ANDTS=0THENTS=20:VN=1:POKE36879,170 4077 FORT=1TO100:POKE36877,255-T:NEXTT:POKE36877,0:POKESS+HS+22*VS,4:POKECS+HS+22*VS,2 4080 IFBS=0ORBS=1ORBS=3THENRETURN 4090 POKESS+HS+22*VS,BS:POKECS+HS+22*VS,CD 4099 GOTO4050 4999 REM NOISE FALLING 5000 POKE36878,15:FORT=1TO30 5010 POKE36875,220-T 5040 FORM=1TO30:NEXTM 5050 NEXTT 5060 POKE36875,0:FORL=1TO20:POKE36877,199+L:NEXTL:POKE36877,0 5070 FORT=1TO1000:NEXTT:GOTO6000 5999 REM DEATH 6000 POKE36879,8 6010 PRINT"[147]KING TUT IS DEAD!!" 6020 PRINT"EVEN THE MUMMY CAN'T  SAVE HIM NOW!" 6025 PRINT"SCORE="CW 6030 POKE36875,0:TS$="00" 6050 POKE36878,15:FORM=1TO5:FORT=255TO128STEP-1:POKE36874,T:NEXTT:NEXTM:POKE36874,0 6051 GOTO20000 7000 POKE36874,200:FORT=1TO200:NEXT:POKE36874,0 7020 RETURN 8999 REMJOYSTICK 9000 POKEDD,127:S3=-((PEEK(PB)AND128)=0):POKEDD,255 9010 P=PEEK(PA):S1=-((PAND8)=0):S2=((PAND16)=0):S0=((PAND4)=0) 9020 FR=-((PAND32)=0):X=S2+S3:Y=S0+S1:RETURN 10000 FS=4407:FC=38199:SS=4129:CS=37921:S=4128:C=37920:RETURN 20000 PRINT"[147]":POKE36879,25 20010 PRINT"[144] THE" 20020 PRINT"SERPENT OF DEATH" 20030 FORB=0TO22:POKEB+7680,8:POKE38400+B,5:NEXTB 20035 FORB=0TO22:POKE7702+B*22,8:POKE38422+B*22,5:NEXTB 20040 FORB=0TO22:POKE7723+B*22,8:POKE38443+B*22,5:NEXTB 20045 FORB=0TO20:POKE8165+B,8:POKE38885+B,5:NEXTB 20050 PRINT"[144]STARRING:" 20052 PRINT"[144]KING TUT[146] D " 20055 PRINT"[144]THE MUMMY [146]F" 20060 PRINT"[144]MS. COBRA [146]H" 20070 PRINT" SCORE="CW 20071 RESTORE:GOSUB63010 20072 PRINT" [156]HIT ANY KEY" 20075 GETA$:IFA$=""THEN20075 20100 RESTORE:CLR:GOTO5 49999 REM SNAKE HISS 50000 FORT=1TO100:POKE36877,255-T:NEXTT 50100 POKE36877,0:RETURN 55000 FORX=1TO90:POKE36874,128+X:NEXTX 55050 FORX=1TO90:POKE36874,218-X:NEXTX 55100 POKE36874,0 55150 RETURN 57999 REMSNAKE HIT SQUARE 58000 POKE36877,200:POKE36877,0:RETURN 59999 REM HARDER LEVEL 60000 L=L+1:CT=0:CO=0:V=0:H=0:VS=3:HS=0:CD=1:BA=0:BS=3 60010 CD=C1:IFL>1THENC1=3:AA=200:IFL>2THENC1=6:AA=300:IFL>3THENC1=5:AA=400 60015 IFL>4THENC1=4:AA=500:IFL>5THENC1=2:AA=600:IFL>6THENC1=7:AA=700 60017 GOSUB3079 60020 GOTO95 63010 POKE36878,15:B=.4 63012 FORI=0TO2:FORJ=0TO2:READJS(J,I):NEXTJ,I 63015 READQ,R 63020 IFQ=0THENRETURN 63030 POKE36876,Q 63040 T=TI+B*R 63050 IFTI